home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1986 April
/
1986-04.d64
/
input windows
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
70 lines
100 print"[147]reading data statements..."
110 forb=49152to49604:readd:pokeb,d:ck=ck+d:next
120 ifck<>57716then print"error in data statements":end
130 pn$="input.obj":forj=1tolen(pn$):poke704+j,asc(mid$(pn$,j,1)):nextj
140 print"d[146]isk or t[146]ape? ";:device=8
150 geta$:ifa$="t"thendevice=1:goto170
160 ifa$<>"d"then150
170 printa$:poke780,15:poke781,device:poke782,255:sys65466
180 poke780,len(pn$):poke781,193:poke782,2:sys65469
190 ba=49152:hi=int(ba/256):lo=ba-hi*256:poke251,lo:poke252,hi
200 ea=49604:hi=int(ea/256):lo=ea-hi*256+1:poke780,251:poke781,lo:poke782,hi
210 print"saving ml version of "pn$:sys65496
220 data 56,32,240,255,132,139,173,136
230 data 2,168,169,0,202,48,8,24
240 data 105,40,144,248,200,208,245,24
250 data 101,139,144,1,200,133,139,133
260 data 167,132,140,152,24,105,212,133
270 data 168,173,24,208,41,2,141,195
280 data 193,240,4,169,127,208,2,169
290 data 63,141,240,192,162,87,169,32
300 data 157,0,2,202,16,250,232,134
310 data 141,164,141,177,139,9,128,145
320 data 139,32,228,255,240,251,72,164
330 data 141,177,139,41,127,145,139,104
340 data 162,4,221,29,193,240,5,202
350 data 16,248,48,29,224,4,208,3
360 data 76,42,193,138,10,170,189,34
370 data 193,141,132,192,232,189,34,193
380 data 141,133,192,32,0,16,76,73
390 data 192,201,32,144,188,201,96,144
400 data 8,201,193,144,180,201,219,176
410 data 176,164,141,196,142,240,170,174
420 data 195,193,208,7,201,96,144,3
430 data 56,233,128,153,0,2,32,235
440 data 192,173,134,2,145,167,230,141
450 data 76,73,192,166,141,228,142,240
460 data 136,230,141,96,166,141,240,129
470 data 198,141,96,164,141,208,1,96
480 data 198,141,185,0,2,136,153,0
490 data 2,32,235,192,200,200,196,142
500 data 144,240,169,32,153,0,2,32
510 data 235,192,96,201,193,144,5,41
520 data 127,76,250,192,201,65,144,2
530 data 41,63,145,139,96,164,141,196
540 data 142,208,1,96,169,32,72,185
550 data 0,2,170,104,153,0,2,32
560 data 235,192,200,196,142,240,5,138
570 data 72,76,7,193,96,29,157,148
580 data 20,13,187,192,196,192,253,192
590 data 203,192,169,0,133,144,162,79
600 data 189,0,2,201,32,208,6,202
610 data 16,246,230,144,96,232,134,142
620 data 165,143,208,13,162,183,160,193
630 data 142,94,193,140,95,193,76,91
640 data 193,162,188,160,193,142,94,193
650 data 140,95,193,160,0,185,0,16
660 data 240,7,153,52,3,200,76,93
670 data 193,162,0,189,0,2,153,52
680 data 3,200,232,228,142,208,244,165
690 data 143,208,9,169,34,153,52,3
700 data 200,76,144,193,169,34,153,52
710 data 3,200,169,41,153,52,3,200
720 data 169,0,153,52,3,165,122,141
730 data 181,193,165,123,141,182,193,169
740 data 52,133,122,169,3,133,123,32
750 data 165,169,173,181,193,133,122,173
760 data 182,193,133,123,96,0,0,84
770 data 36,178,34,0,84,49,178,197
780 data 40,34,0,0,170